VERSION 5.00
Begin VB.Form Form4 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "ATE"
   ClientHeight    =   6165
   ClientLeft      =   45
   ClientTop       =   375
   ClientWidth     =   8295
   LinkTopic       =   "Form4"
   MaxButton       =   0   'False
   ScaleHeight     =   6165
   ScaleWidth      =   8295
   Begin VB.ListBox List1 
      Appearance      =   0  'Flat
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   5910
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   8055
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const CONST_EXE As String = ".exe"

Private Sub Form_Activate()
    List1.Clear
    'Call GetFtpList(CONST_EXE, List1)
End Sub

Private Sub List1_DblClick()
    Dim FileName As String
    FileName = Trim$(List1.List(List1.ListIndex))
    Bool = DownLoadFile(FileName)
    Me.Hide
End Sub
